COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00004 ENDMK
C⊗;

(lap meter:init-time1 subr)
(args meter:init-time1 (nil . 2))
	(setzm 0 count)
 	(hrrz a 0 a)	;get address
	(hrrz tt 0 a)
	(hrrzi tt 4 tt)	;business address
	(aos 0 tt)
	(movem tt array)
	(move b 0 b)	;factor
	(movem b factor)
	(movei a 't)
	(popj p)

(entry em:business-address subr)
(args em:business-address (nil . 1))
 	(hrrz a 0 a)	;get address
	(hrrz tt 0 a)
	(hrrzi tt 4 tt)	;business address
	(jrst 0 fix1)	;return it

(entry meter:time1 subr)
(args meter:time1 (nil . 0))
	(movei tt 0)
	(calli tt #o27)
	(movem tt count)
	(movei a 't)
	(popj p)

(entry meter:time2 subr)
(args meter:time2 (nil . 1))
	(movei tt 0)
	(calli tt #o27)
	(sub tt count)
	(move t 0 a)
	(add t array)
	(movem tt 0 t)
	(popj p)

(entry value subr)
(args value (nil . 2))
	(move tt 0 a)
	(imul tt factor)
	(add tt 0 @ b)
	(add tt array)
	(move tt 0 tt)
	(jsp t fxcons)
	(popj p)
count (0)
array (0)
factor (0)
()